home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / BASIC / ASC.BAS < prev    next >
BASIC Source File  |  2000-09-26  |  324b  |  26 lines
  1. $INCLUDE "REGNAMES.INC"
  2. cls
  3. screen 12
  4. color 15
  5.  
  6.  
  7. ze=2
  8. for i=14 to 33
  9.  locate ze
  10.  call ChOut(i)
  11.  ze=ze+1
  12. next
  13. end
  14.  
  15. sub ChOut(n) shared
  16.  x$=str$(n)+"     "+chr$(n)
  17.  for zz=1 to len(x$)
  18.   reg %ax,&H09*256+asc(mid$(x$,zz,1))
  19.   reg %bx,15
  20.   reg %cx,1
  21.   call interrupt &H10
  22.   locate ,zz+1
  23.  next
  24. end sub
  25.  
  26.